static void slglade_require (void)
{
   char* arg1;

   if (SLang_Num_Function_Args != 1) {
	SLang_verror (SL_USAGE_ERROR,
	   "Usage: glade_require(string);");
	return;
   }
   if (SLANG_STRING_TYPE_pop(&arg1, NULL) == -1 ) {
	SLang_verror (SL_INTRINSIC_ERROR,
	   "Unable to validate arguments to: glade_require");
	return;
   }
   glade_require(
			arg1);
}

static void slglade_xml_new (void)
{
   GladeXML* rtn;
   char* arg1;
   char* arg2;
   char* arg3;

   if (SLang_Num_Function_Args != 3) {
	SLang_verror (SL_USAGE_ERROR,
	   "Usage: GladeXML = glade_xml_new(string,string,string);");
	return;
   }
   if (pop_obj_or_null(SLANG_STRING_TYPE,(void**)&arg3) == -1 ||
	pop_obj_or_null(SLANG_STRING_TYPE,(void**)&arg2) == -1 ||
	SLANG_STRING_TYPE_pop(&arg1, NULL) == -1 ) {
	SLang_verror (SL_INTRINSIC_ERROR,
	   "Unable to validate arguments to: glade_xml_new");
	return;
   }
   rtn =    glade_xml_new(
			arg1,
			arg2,
			arg3);
   (void) GladeXML_Id_push(rtn, GladeXML_Id);
}

static void slglade_xml_get_widget (void)
{
   GtkWidget* rtn;
   Slirp_Opaque* arg1 = NULL;
   SLang_MMT_Type *mmt_arg1 = NULL;
   char* arg2;

   if (SLang_Num_Function_Args != 2) {
	SLang_verror (SL_USAGE_ERROR,
	   "Usage: GtkWidget = glade_xml_get_widget(GladeXML,string);");
	return;
   }
   if (SLANG_STRING_TYPE_pop(&arg2, NULL) == -1 ||
	SLang_pop_opaque(GladeXML_Id, &arg1, &mmt_arg1) == -1 ) {
	SLang_verror (SL_INTRINSIC_ERROR,
	   "Unable to validate arguments to: glade_xml_get_widget");
	return;
   }
   rtn =    glade_xml_get_widget(
			 SAFE_DEREF_OPAQUE(arg1),
			arg2);
   SLang_free_mmt(mmt_arg1);
   (void) GtkWidget_Id_push(rtn, GtkWidget_Id);
}

static void slglade_get_widget_name (void)
{
   const char* rtn;
   Slirp_Opaque* arg1 = NULL;
   SLang_MMT_Type *mmt_arg1 = NULL;

   if (SLang_Num_Function_Args != 1) {
	SLang_verror (SL_USAGE_ERROR,
	   "Usage: string = glade_get_widget_name(GtkWidget);");
	return;
   }
   if (SLang_pop_opaque(GtkWidget_Id, &arg1, &mmt_arg1) == -1 ) {
	SLang_verror (SL_INTRINSIC_ERROR,
	   "Unable to validate arguments to: glade_get_widget_name");
	return;
   }
   rtn =    glade_get_widget_name(
			 SAFE_DEREF_OPAQUE(arg1));
   SLang_free_mmt(mmt_arg1);
   (void) SLANG_STRING_TYPE_push(( char*)rtn, NULL);
}

static void slglade_get_widget_tree (void)
{
   GladeXML* rtn;
   Slirp_Opaque* arg1 = NULL;
   SLang_MMT_Type *mmt_arg1 = NULL;

   if (SLang_Num_Function_Args != 1) {
	SLang_verror (SL_USAGE_ERROR,
	   "Usage: GladeXML = glade_get_widget_tree(GtkWidget);");
	return;
   }
   if (SLang_pop_opaque(GtkWidget_Id, &arg1, &mmt_arg1) == -1 ) {
	SLang_verror (SL_INTRINSIC_ERROR,
	   "Unable to validate arguments to: glade_get_widget_tree");
	return;
   }
   rtn =    glade_get_widget_tree(
			 SAFE_DEREF_OPAQUE(arg1));
   SLang_free_mmt(mmt_arg1);
   (void) GladeXML_Id_push(rtn, GladeXML_Id);
}

